home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb4.arc / CIRCLE.PAS < prev    next >
Pascal/Delphi Source File  |  1984-12-04  |  530b  |  19 lines
  1. {$U+}
  2.  
  3. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  4. The purchaser of these procedures and functions may include them in COMPILED
  5. programs freely, but may not sell or give away the source text.}
  6.  
  7. {$I circle.lib}
  8. begin
  9.   hiRes;
  10.   circle(320,100,100,40,1,1);
  11.   circle(320,100,10,10,0.75,1);
  12.   circle(320,100,100,100,0.5,1);
  13.   GraphMode;
  14.   circle(160,100,100,40,1,1);
  15.   circle(160,100,10,10,0.75,2);
  16.   circle(160,100,100,100,0.5,3);
  17.   repeat until keypressed;
  18.   textmode(BW80);
  19. end.